﻿Imports DAO
Imports DTO
Public Class ThamSoBUS
    'lay bang tham so
    Public Function LayBangThamSo() As ThamSoDTO
        Dim tsDAO As New ThamSoDAO()
        Return tsDAO.LayBangThamSo()
    End Function
    'Kiểm tra số tiền gởi tối thiểu
    Public Function KiemTraSoTienGoiToiThieu(ByVal sotiengoi As Double, ByVal sotiengoitoithieu As Double) As Boolean
        Dim tsDAO As New ThamSoDAO()
        Return tsDAO.KiemTraSoTienGoi(sotiengoi, sotiengoitoithieu)
    End Function
    Public Shared Function KiemTraNgayRut(ByVal ngayrut As Date, ByVal ngaymoso As Date) As Boolean
        Return ThamSoDAO.KiemTraNgayRut(ngayrut, ngaymoso)
    End Function

    Public Function ImportExcel(ByVal str As String) As DataTable
        Dim dt As New DataTable()
        Return dt
    End Function
End Class
